home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / waveplay / waveplay.frm < prev    next >
Text File  |  1996-08-24  |  10KB  |  324 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Jeff's Wave Playing Experiment"
  5.    ClientHeight    =   4545
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1515
  8.    ClientWidth     =   4365
  9.    Height          =   4950
  10.    Icon            =   "WAVEPLAY.frx":0000
  11.    Left            =   1080
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4545
  16.    ScaleWidth      =   4365
  17.    Top             =   1170
  18.    Width           =   4485
  19.    Begin VB.CommandButton Command11 
  20.       Caption         =   "&Quit"
  21.       BeginProperty Font 
  22.          name            =   "MS Sans Serif"
  23.          charset         =   1
  24.          weight          =   700
  25.          size            =   8.25
  26.          underline       =   0   'False
  27.          italic          =   0   'False
  28.          strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   495
  31.       Left            =   1080
  32.       TabIndex        =   10
  33.       Top             =   3960
  34.       Width           =   1935
  35.    End
  36.    Begin VB.CommandButton Command10 
  37.       Caption         =   "Elvis' &Favorite Saying"
  38.       BeginProperty Font 
  39.          name            =   "MS Sans Serif"
  40.          charset         =   1
  41.          weight          =   700
  42.          size            =   8.25
  43.          underline       =   0   'False
  44.          italic          =   0   'False
  45.          strikethrough   =   0   'False
  46.       EndProperty
  47.       Height          =   495
  48.       Left            =   2160
  49.       TabIndex        =   8
  50.       Top             =   2640
  51.       Width           =   2055
  52.    End
  53.    Begin VB.CommandButton Command9 
  54.       Caption         =   "Clin&t's Big Question?"
  55.       BeginProperty Font 
  56.          name            =   "MS Sans Serif"
  57.          charset         =   1
  58.          weight          =   700
  59.          size            =   8.25
  60.          underline       =   0   'False
  61.          italic          =   0   'False
  62.          strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   495
  65.       Left            =   2160
  66.       TabIndex        =   7
  67.       Top             =   2040
  68.       Width           =   2055
  69.    End
  70.    Begin VB.CommandButton Command8 
  71.       Caption         =   "&Good Help?"
  72.       BeginProperty Font 
  73.          name            =   "MS Sans Serif"
  74.          charset         =   1
  75.          weight          =   700
  76.          size            =   8.25
  77.          underline       =   0   'False
  78.          italic          =   0   'False
  79.          strikethrough   =   0   'False
  80.       EndProperty
  81.       Height          =   495
  82.       Left            =   2160
  83.       TabIndex        =   6
  84.       Top             =   1440
  85.       Width           =   2055
  86.    End
  87.    Begin VB.CommandButton Command7 
  88.       Caption         =   "&What was That?"
  89.       BeginProperty Font 
  90.          name            =   "MS Sans Serif"
  91.          charset         =   1
  92.          weight          =   700
  93.          size            =   8.25
  94.          underline       =   0   'False
  95.          italic          =   0   'False
  96.          strikethrough   =   0   'False
  97.       EndProperty
  98.       Height          =   495
  99.       Left            =   2160
  100.       TabIndex        =   5
  101.       Top             =   840
  102.       Width           =   2055
  103.    End
  104.    Begin VB.CommandButton Command6 
  105.       Caption         =   "C&lint's Intro!"
  106.       BeginProperty Font 
  107.          name            =   "MS Sans Serif"
  108.          charset         =   1
  109.          weight          =   700
  110.          size            =   8.25
  111.          underline       =   0   'False
  112.          italic          =   0   'False
  113.          strikethrough   =   0   'False
  114.       EndProperty
  115.       Height          =   495
  116.       Left            =   120
  117.       TabIndex        =   4
  118.       Top             =   3240
  119.       Width           =   1815
  120.    End
  121.    Begin VB.CommandButton Command5 
  122.       Caption         =   "&Clint's Challenge"
  123.       BeginProperty Font 
  124.          name            =   "MS Sans Serif"
  125.          charset         =   1
  126.          weight          =   700
  127.          size            =   8.25
  128.          underline       =   0   'False
  129.          italic          =   0   'False
  130.          strikethrough   =   0   'False
  131.       EndProperty
  132.       Height          =   495
  133.       Left            =   120
  134.       TabIndex        =   3
  135.       Top             =   2640
  136.       Width           =   1815
  137.    End
  138.    Begin VB.CommandButton Command4 
  139.       Caption         =   "&Barney Fife's File"
  140.       BeginProperty Font 
  141.          name            =   "MS Sans Serif"
  142.          charset         =   1
  143.          weight          =   700
  144.          size            =   8.25
  145.          underline       =   0   'False
  146.          italic          =   0   'False
  147.          strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   495
  150.       Left            =   120
  151.       TabIndex        =   1
  152.       Top             =   1440
  153.       Width           =   1815
  154.    End
  155.    Begin VB.CommandButton Command3 
  156.       Caption         =   "&Missing Cursor"
  157.       BeginProperty Font 
  158.          name            =   "MS Sans Serif"
  159.          charset         =   1
  160.          weight          =   700
  161.          size            =   8.25
  162.          underline       =   0   'False
  163.          italic          =   0   'False
  164.          strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   495
  167.       Left            =   120
  168.       TabIndex        =   2
  169.       Top             =   2040
  170.       Width           =   1815
  171.    End
  172.    Begin VB.CommandButton Command2 
  173.       Caption         =   "Elvis' &Demise"
  174.       BeginProperty Font 
  175.          name            =   "MS Sans Serif"
  176.          charset         =   1
  177.          weight          =   700
  178.          size            =   8.25
  179.          underline       =   0   'False
  180.          italic          =   0   'False
  181.          strikethrough   =   0   'False
  182.       EndProperty
  183.       Height          =   495
  184.       Left            =   2160
  185.       TabIndex        =   9
  186.       Top             =   3240
  187.       Width           =   2055
  188.    End
  189.    Begin VB.CommandButton Command1 
  190.       Caption         =   "&I'm OK, Your OK"
  191.       BeginProperty Font 
  192.          name            =   "MS Sans Serif"
  193.          charset         =   1
  194.          weight          =   700
  195.          size            =   8.25
  196.          underline       =   0   'False
  197.          italic          =   0   'False
  198.          strikethrough   =   0   'False
  199.       EndProperty
  200.       Height          =   495
  201.       Left            =   120
  202.       TabIndex        =   0
  203.       Top             =   840
  204.       Width           =   1815
  205.    End
  206.    Begin VB.Label Label1 
  207.       Alignment       =   2  'Center
  208.       Caption         =   $"WAVEPLAY.frx":0442
  209.       ForeColor       =   &H00FF0000&
  210.       Height          =   615
  211.       Left            =   120
  212.       TabIndex        =   11
  213.       Top             =   120
  214.       Width           =   4095
  215.    End
  216. End
  217. Attribute VB_Name = "Form1"
  218. Attribute VB_Creatable = False
  219. Attribute VB_Exposed = False
  220. 'Basic Wave Playing by J W Lehman
  221. Option Explicit
  222. Dim Soundname As String
  223. Dim wFlags As Integer
  224. Dim x As Integer
  225. Dim Location As String
  226. Private Sub Command1_Click()
  227.     Location = CurDir()
  228.     Soundname$ = "c:\VB\WAVEPLAY\OK.WAV" 'Location + "\" + "ok.wav"
  229.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  230.     x% = sndPlaySound(Soundname$, wFlags%)
  231. End Sub
  232.  
  233. Private Sub Command10_Click()
  234.     Location = CurDir()
  235.     Soundname$ = "c:\VB\WAVEPLAY\UHUH.WAV" 'Location + "\" + "ok.wav"
  236.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  237.     x% = sndPlaySound(Soundname$, wFlags%)
  238. End Sub
  239.  
  240. Private Sub Command11_Click()
  241.     Location = CurDir()
  242.     Soundname$ = "c:\VB\WAVEPLAY\gcrowd.WAV"
  243.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  244.     x% = sndPlaySound(Soundname$, wFlags%)
  245.  
  246. End
  247. End Sub
  248.  
  249.  
  250. Private Sub Command2_Click()
  251.     Location = CurDir()
  252.     Soundname$ = "c:\VB\WAVEPLAY\DONUTS.WAV"
  253.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  254.     x% = sndPlaySound(Soundname$, wFlags%)
  255. End Sub
  256.  
  257.  
  258. Private Sub Command3_Click()
  259.